<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="UTF-8" />
<meta http-equiv="X-UA-Compatible" content="IE=edge" />
<meta name="viewport" content="width=device-width, initial-scale=1.0" />
<title>SheCodes</title>
</head>
<body>
</body>
</html>
My meme is about
library(magick)
Drake_says_no <- image_read("https://pyxis.nymag.com/v1/imgs/62c/fa8/6e52acce958795508a7ecbf6a3656c0190-11-drake-hotline-bling.rhorizontal.w700.jpg")%>%
image_resize("600x600!")
Drake_says_yes<- image_read("https://i.imgflip.com/4wpsm3.jpg")%>%
image_resize("600x600!")
Play_games_in_USSR <- image_blank(width=600, height=600, color="#000000")%>%
image_annotate(text = "WHEN YOU PLAY MINECRAFT\n IN USSR",
color = "#FFFFFF",
size =40,
gravity = "center")
Play_games_in_USSR2 <- image_blank(width=600, height=600, color="#FFFFFF")%>%
image_annotate(text = "WHEN YOU PLAY OURCRAFT\n IN USSR",
color = "#000000",
size =40,
gravity = "center")
top_row <- image_append(c(Play_games_in_USSR, Drake_says_no))
bottom_row <- image_append(c(Play_games_in_USSR2, Drake_says_yes))
game_meme <- c(top_row, bottom_row) %>%
image_append(stack = TRUE) %>%
image_scale(600)
image_write(game_meme, "my_meme.png")
My GIF is about
library(magick)
image_animate(frame, fps = 4 )
image_morph(frame)
frame <- c(Play_games_in_USSR, Drake_says_no, Play_games_in_USSR2, Drake_says_yes)
game_gif_1 <- image_animate(frame, fps = 4 )
game_gif_2 <- image_morph(frame) %>%
image_animate(fps =100)
game_animation <- c(game_gif_1, game_gif_2)
image_write(game_animation, "my_animation.gif")